home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1990 May & June & July / rerun-1990-05-06-07.d64 / 128 colors-1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  78 lines
  1. 10 rem hue palette for the 64 - richard penn
  2. 20 clr: poke53280,0:poke53281,0:print"[147]"chr$(142)chr$(8)
  3. 30 printtab(16)"[151]one":printtab(16)"[152]moment":printtab(16)"[155]please..."
  4. 40 gosub590:rem install ml routines
  5. 50 gosub730:rem redefine dithering chr
  6. 60 restore
  7. 70 fort=50000to50000+255:poket,0:next:fort=50256to50256+255:poket,0:next
  8. 80 l=4:q=50050+l*8:fort=qtoq+15*8step8:readx:forz=ttot+7:pokez,x:next:next
  9. 90 print"[147]";:fort=1to999:print"[144] ";:next:poke2023,160:poke56295,0
  10. 100 fort=217to242:poket,peek(t)or128:next
  11. 110 sys49152:gosub290:gosub480:poke2,0:sys2
  12. 120 rem print small grid sub
  13. 130 sys679:g=1:gosub550:print""tab(13)"128 hue palette"
  14. 140 print"";:fort=1tol-2:print:next
  15. 150 printtab(13)"[151] [152] [155]  [158] [150] [129]  [149] [156]  [154] [159] [153]  [151] "
  16. 160 print"";:fort=1tol:print:next
  17. 170 printtab(11)"[151] [157][152] [157][155] [157] [157][158] [157][150] [157][129] [157] [157][149] [157][156] [157] [157][154] [157][159] [157][153] [157] [157]"
  18. 180 print"";:fort=1tol:print:next:fort=1to16
  19. 190 printtab(13)"[151]@[152]@[155]@@[158]@[150]@[129]@@[149]@[156]@@[154]@[159]@[153]@@[151]@":next
  20. 200 gosub430
  21. 210 return
  22. 220 rem print large grid
  23. 230 sys679:g=2:gosub550:print""tab(13)"128 hue palette"
  24. 240 print"";:fort=1tol:print:next:fort=1to16
  25. 250 printtab(4)"[151]@@[152]@@[155]@@@@[158]@@[150]@@[129]@@@@[149]@@[156]@@@@[154]@@[159]@@[153]@@@@[151]@@":next
  26. 260 gosub430
  27. 270 return
  28. 280 rem print color shading scales sub
  29. 290 gosub230:g=3:print""tab(10)"color shading scales"
  30. 300 print""
  31. 310 fort=1to9:print"[144]                                     ":next
  32. 320 print"                                       "
  33. 330 print"":fort=1to4:printtab(12)"[144]  ":next
  34. 340 print"":fort=1to4:printtab(22)"[144]  ":next
  35. 350 print"":fort=1to4:printtab(34)"[144]  ":next
  36. 360 print"":fort=1to2:printtab(22)"[144]      ":next
  37. 370 print""tab(6)"[144]grey"tab(15)"brown"tab(26)"blue-"
  38. 380 printtab(26)"green"
  39. 390 print""tab(7)"green set 1"tab(29)"[145]green"
  40. 400 printtab(29)"set 2"
  41. 410 return
  42. 420 rem print command window sub
  43. 430 print:printtab(11)" f1 [146] large palette"
  44. 440 printtab(11)"[155] f3 [146] small palette"
  45. 450 printtab(11)"[152] f5 [146] shading scales"
  46. 460 printtab(11)"[151] f7 [146] exit";:return
  47. 470 rem menu sub
  48. 480 sys695:poke198,0:wait198,1:geta$
  49. 490 ifa$="[134]"andg<>1thengosub130
  50. 500 ifa$="[133]"andg<>2thengosub230
  51. 510 ifa$="[135]"andg<>3thengosub290
  52. 520 ifa$="[136]"thenpoke198,0:return
  53. 530 goto480
  54. 540 rem clear screen sub
  55. 550 print"";:fort=1to21:print"[144]                                       ":next
  56. 560 return
  57. 570 data 11,12,15,1,7,10,8,2,9,4,6,14,3,13,5,0
  58. 580 rem background raster interrupt and screen toggle ml routines
  59. 590 fort=1to16:readd:next
  60. 600 foru=49152to49226:readq:pokeu,q:ck=ck+q:next
  61. 610 if ck<>8767 thenprint"error in data lines 620-660":end
  62. 620 data 120,169,127,141,13,220,169,1,141,26,208,169,50,141,18,208,169,27
  63. 630 data 141,17,208,169,33,141,20,3,169,192,141,21,3,88,96,169,1,141
  64. 640 data 25,208,174,18,208,224,250,240,22,189,80,195,141,33,208,141,32,208
  65. 650 data 138,24,105,8,141,18,208,104,168,104,170,104,64,169,50,141,18,208
  66. 660 data 76,49,234
  67. 670 ck=0:foru=679to710:readq:pokeu,q:ck=ck+q:next
  68. 680 if ck<>4206 thenprint"error in data lines 690-700":end
  69. 690 data 173,17,208,16,251,169,91,141,17,208,169,216,141,22,208,96,173,17
  70. 700 data 208,16,251,169,27,141,17,208,169,200,141,22,208,96
  71. 710 return
  72. 720 rem redefine dithering character
  73. 730 poke56333,127:poke1,51
  74. 740 poke781,9:poke782,0:poke90,0:poke91,216:poke88,0:poke89,56:sys41964
  75. 750 poke1,55:poke56333,129
  76. 760 poke12288,170:poke12289,85:poke12290,170:poke12291,85:poke12292,170
  77. 770 poke12293,85:poke12294,170:poke12295,85:poke53272,29:return
  78.